<% dim did did=request.QueryString("id") Dim SQL,rs,recordcountnum,page,i,j SQL="select * from gb where id="&did set rs=server.createobject("adodb.recordset") rs.open SQL,conn,1,1 If rs.eof and rs.bof Then Response.Write ( "

没有留言。

" ) Else dim ips,ip1,ip2,content,repcontent,name1,sex,title1,id,qq,email,qiaoqiaohua,time1 ips=split(rs("ip"),".") ip1=""&ips(0)&"."&ips(1)&"."&ips(2)&".*" ip2=rs("ip") content=rs("content") repcontent=rs("repcontent") name1=rs("name") sex=rs("sex") title1=rs("title") id=rs("id") qq=rs("qq") email=rs("email") homepage=rs("homepage") qiaoqiaohua=rs("qiaoqiaohua") time1=rs("time") rs.close set rs=nothing conn.close set conn=nothing %> <%=title1%>
NO.<%=id%><%= left(htmlencode(title1),25) %>「<%=time1%>」 [ <%if qq<>"" then%>QQ:<%=qq%> <%end if%> <%If Session("admin_gb")="admin_gbok" Then%>IP:<%=ip2%> <%else%>IP:<%=ip1%> <%end if%> <%if email<>"" then%>邮箱:<%=email%> <%end if%> <%if homepage<>"" then%>个人网站:<%=homepage%> <%end if%>] 留言
<%if sex=1 then response.Write("Male") else response.Write("Female") end if %>
<%=htmlencode(name1)%>
<% If Session("admin_gb")="admin_gbok" Then content=ubbcode(htmlencode(content)) response.write content elseif qiaoqiaohua=1 then response.write "此为悄悄话,仅站长可以浏览。" else content=ubbcode(htmlencode(content)) response.write content end if %> <%If Session("admin_gb")="admin_gbok" Then%>
[ " target="_self" style="color:red"> 回复 | " style="color:red">删除 ] <%End If%>
<%if repcontent<>"暂无回复" then%>
 站长回复:<%= UBBCode(repcontent) %> <%end if%>

返回留言本首页

<%end if%>